for a in $(ls *.txt); do Rscript plot.R $a; done
